Informace ve StatusBaru
Otázka od: LUKES Vaclav
6. 11. 2003 14:14
Ahoj,
muzete me prosim poradit ?
Na formulari mam TStatusBar SBA, ve kterem chci zobrazovat info o klavesach:
procedure TfrmCenHlv.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
with SBA do
begin
if Odd(GetKeyState(VK_NUMLOCK)) then
Panels[0].Text := 'NUM'
else
Panels[0].Text := '';
if Odd(GetKeyState(VK_CAPITAL)) then
Panels[1].Text := 'CAPS'
else
Panels[1].Text := '';
end;
end;
Vse funguje az do chvile, kdy pouziju JEDI. Potom mi to najednou prestane
fungovat.
Nevite nekdo co s tim ?
Diky
V.
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: kexo
6. 11. 2003 15:50
JEDI ma zadefinovanu funkciu
function GetKeyState(const VirtualKey: Cardinal): Boolean;
takze skus stade vyhodit to 'Odd'
kexo
----- Original Message -----
From: "LUKES Vaclav" <lukes@ans.cz>
To: <delphi-l@clexpert.cz>
Sent: Thursday, November 06, 2003 1:36 PM
Subject: Informace ve StatusBaru
> Ahoj,
>
> muzete me prosim poradit ?
> Na formulari mam TStatusBar SBA, ve kterem chci zobrazovat info o
klavesach:
>
> procedure TfrmCenHlv.FormKeyDown(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> begin
> with SBA do
> begin
> if Odd(GetKeyState(VK_NUMLOCK)) then
> Panels[0].Text := 'NUM'
> else
> Panels[0].Text := '';
>
> if Odd(GetKeyState(VK_CAPITAL)) then
> Panels[1].Text := 'CAPS'
> else
> Panels[1].Text := '';
> end;
> end;
>
> Vse funguje az do chvile, kdy pouziju JEDI. Potom mi to najednou prestane
fungovat.
>
> Nevite nekdo co s tim ?
>
> Diky
>
> V.
>
>
>
>
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)